home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a03.bas < prev    next >
BASIC Source File  |  1993-11-30  |  672b  |  22 lines
  1. 1000 'A03.BAS**************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0
  3. 1020 CLS
  4. 1030 PI=3.14159!:C=1:COLOR 7
  5. 1040 POINT (320,240)
  6. 1050 A$="☆☆☆ １６枚の葉をもつ正葉形を描いています。☆☆☆"
  7. 1060 AA$="正  葉  形"
  8. 1070 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$
  9. 1080 AA=LEN(AA$):BB=(80-AA)\2:LOCATE 0,21:PRINT SPACE$(BB)+AA$
  10. 1090 T1=TIME
  11. 1100 FOR T=40 TO 120 STEP 20
  12. 1110   FOR I=O TO 2*PI+.2! STEP .02!
  13. 1120     X=320+T*SIN(8*I)*COS(I)
  14. 1130     Y=240+T*SIN(8*I)*SIN(I)
  15. 1140     LINE -(X,Y),PSET,C
  16. 1150   NEXT
  17. 1160   C=C+1
  18. 1170 NEXT
  19. 1180 T2=TIME:T=T2-T1:LOCATE 5,2:PRINT "書くのに要した時間  約";T;"秒"
  20. 1190 WAIT 100
  21. 1310 '
  22.